home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Calc / MathPad 2.35.sit / Examples / incl / histogram < prev    next >
MacBinary  |  1994-06-11  |  1.3 KB  |  [TEXT/MPad]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: histogram

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat Jun 11 19:47:56 1994, modified Sat Jun 11 19:47:56 1994, creator 'MPad', type ASCII, 739 bytes "histogram" , at 0x363 342 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPad]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 68 69 73 74 6f 67 | 72 61 6d 00 00 00 00 00 |..histog|ram.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 61 | 64 01 00 00 00 00 00 00 |.TEXTMPa|d.......|
|00000050| 00 00 00 00 00 02 e3 00 | 00 01 56 aa 1f fd ac aa |........|..V.....|
|00000060| 1f fd ac 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a0 5b 00 00 |........|.....[..|
|00000080| 2d 2d 20 68 69 73 74 6f | 28 61 72 72 61 79 2c 6c |-- histo|(array,l|
|00000090| 6f 2c 68 69 2c 6e 62 69 | 6e 73 29 20 61 63 63 75 |o,hi,nbi|ns) accu|
|000000a0| 6d 75 6c 61 74 65 73 20 | 61 20 68 69 73 74 6f 67 |mulates |a histog|
|000000b0| 72 61 6d 20 6f 66 20 76 | 61 6c 75 65 73 20 66 72 |ram of v|alues fr|
|000000c0| 6f 6d 20 27 61 72 72 61 | 79 27 2e 20 52 65 74 75 |om 'arra|y'. Retu|
|000000d0| 72 6e 73 20 74 68 65 20 | 68 69 73 74 6f 67 72 61 |rns the |histogra|
|000000e0| 6d 20 69 6e 20 27 62 69 | 6e 73 27 2e 20 41 6c 73 |m in 'bi|ns'. Als|
|000000f0| 6f 20 63 61 6c 63 75 6c | 61 74 65 73 20 74 6f 74 |o calcul|ates tot|
|00000100| 61 6c 2c 6d 65 61 6e 20 | 61 6e 64 20 73 74 64 65 |al,mean |and stde|
|00000110| 76 20 6f 66 20 76 61 6c | 75 65 73 20 62 65 74 77 |v of val|ues betw|
|00000120| 65 65 6e 20 27 6c 6f 27 | 20 61 6e 64 20 27 68 69 |een 'lo'| and 'hi|
|00000130| 27 0d 0d 2d 2d 20 6d 61 | 78 28 61 72 72 61 79 29 |'..-- ma|x(array)|
|00000140| 20 66 69 6e 64 73 20 6d | 61 78 20 76 61 6c 75 65 | finds m|ax value|
|00000150| 20 69 6e 20 61 72 72 61 | 79 0d 0d 68 69 73 74 6f | in arra|y..histo|
|00000160| 28 61 72 72 61 79 2c 6c | 6f 2c 68 69 2c 6e 62 69 |(array,l|o,hi,nbi|
|00000170| 6e 73 29 20 3d 20 74 6f | 74 61 6c 20 3a 3d 20 30 |ns) = to|tal := 0|
|00000180| 2c 0d 20 20 20 73 75 6d | 6e 20 3a 3d 20 30 2c 20 |,. sum|n := 0, |
|00000190| 73 75 6d 73 71 20 3a 3d | 20 30 2c 0d 20 20 20 73 |sumsq :=| 0,. s|
|000001a0| 63 6c 20 3a 3d 20 6e 62 | 69 6e 73 2f 28 68 69 2d |cl := nb|ins/(hi-|
|000001b0| 6c 6f 29 2c 0d 20 20 20 | 62 69 6e 73 3a 3d 30 5b |lo),. |bins:=0[|
|000001c0| 3a 6e 62 69 6e 73 5d 2c | 0d 20 20 20 69 3a 3d 31 |:nbins],|. i:=1|
|000001d0| 2c 0d 20 20 20 28 0d 20 | 20 20 20 6e 75 6d 3a 3d |,. (. | num:=|
|000001e0| 61 72 72 61 79 5b 69 5d | 2c 0d 20 20 20 20 69 3a |array[i]|,. i:|
|000001f0| 3d 69 2b 31 2c 0d 20 20 | 20 20 28 6a 20 3a 3d 20 |=i+1,. | (j := |
|00000200| 74 72 75 6e 63 28 28 6e | 75 6d 2d 6c 6f 29 2a 73 |trunc((n|um-lo)*s|
|00000210| 63 6c 29 2b 31 2c 0d 20 | 20 20 20 20 62 69 6e 73 |cl)+1,. | bins|
|00000220| 5b 6a 5d 20 3a 3d 20 62 | 69 6e 73 5b 6a 5d 2b 31 |[j] := b|ins[j]+1|
|00000230| 2c 0d 20 20 20 20 20 74 | 6f 74 61 6c 20 3a 3d 20 |,. t|otal := |
|00000240| 74 6f 74 61 6c 2b 31 2c | 0d 20 20 20 20 20 73 75 |total+1,|. su|
|00000250| 6d 6e 20 3a 3d 20 73 75 | 6d 6e 2b 6e 75 6d 2c 0d |mn := su|mn+num,.|
|00000260| 20 20 20 20 20 73 75 6d | 73 71 20 3a 3d 20 73 75 | sum|sq := su|
|00000270| 6d 73 71 20 2b 20 6e 75 | 6d 2a 6e 75 6d 29 20 77 |msq + nu|m*num) w|
|00000280| 68 65 6e 20 6e 75 6d b3 | 6c 6f 20 61 6e 64 20 6e |hen num.|lo and n|
|00000290| 75 6d 3c 68 69 29 20 77 | 68 69 6c 65 20 69 20 b2 |um<hi) w|hile i .|
|000002a0| 20 63 6f 75 6e 74 28 61 | 72 72 61 79 29 0d 0d 6d | count(a|rray)..m|
|000002b0| 65 61 6e 20 3d 20 73 75 | 6d 6e 2f 74 6f 74 61 6c |ean = su|mn/total|
|000002c0| 0d 73 74 64 65 76 20 3d | 20 73 71 72 74 28 28 73 |.stdev =| sqrt((s|
|000002d0| 75 6d 73 71 2d 73 75 6d | 6e 2a 73 75 6d 6e 2f 74 |umsq-sum|n*sumn/t|
|000002e0| 6f 74 61 6c 29 2f 28 74 | 6f 74 61 6c 2d 31 29 29 |otal)/(t|otal-1))|
|000002f0| 0d 0d 6d 61 78 28 61 72 | 72 61 79 29 20 3d 20 6d |..max(ar|ray) = m|
|00000300| 61 78 76 3a 3d 2d 31 2f | 30 2c 0d 20 20 69 3a 3d |axv:=-1/|0,. i:=|
|00000310| 30 2c 0d 20 20 28 69 3a | 3d 69 2b 31 2c 0d 20 20 |0,. (i:|=i+1,. |
|00000320| 20 6d 61 78 76 3a 3d 61 | 72 72 61 79 5b 69 5d 20 | maxv:=a|rray[i] |
|00000330| 77 68 65 6e 20 61 72 72 | 61 79 5b 69 5d 3e 6d 61 |when arr|ay[i]>ma|
|00000340| 78 76 29 20 77 68 69 6c | 65 20 69 b2 20 63 6f 75 |xv) whil|e i. cou|
|00000350| 6e 74 28 61 72 72 61 79 | 29 2c 0d 20 20 6d 61 78 |nt(array|),. max|
|00000360| 76 0d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |v.......|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 01 00 00 00 01 24 | 00 00 00 24 00 00 00 32 |.......$|...$...2|
|00000390| 00 00 00 2c 00 00 00 00 | 0f 1e ff ff 00 00 00 00 |...,....|........|
|000003a0| 00 00 00 00 0f 52 ff ff | 00 00 00 2c 00 00 00 00 |.....R..|...,....|
|000003b0| 09 68 69 73 74 6f 67 72 | 61 6d 02 00 00 00 54 45 |.histogr|am....TE|
|000003c0| 58 54 4d 50 61 64 01 00 | 00 34 01 40 00 00 00 00 |XTMPad..|.4.@....|
|000003d0| 00 00 54 45 58 54 4d 50 | 61 64 01 00 00 34 01 40 |..TEXTMP|ad...4.@|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 aa 05 94 33 00 00 | 02 e3 00 00 01 56 00 00 |.....3..|.....V..|
|00000400| 00 00 00 00 11 b2 ff ff | 00 00 00 2c 00 00 00 00 |........|...,....|
|00000410| 11 ba ff ff 00 00 02 59 | 00 00 00 00 12 22 ff ff |.......Y|....."..|
|00000420| 00 00 00 2c 00 00 00 00 | 13 42 ff ff 00 00 00 2c |...,....|.B.....,|
|00000430| 00 00 00 00 13 f0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 13 f6 ff ff 00 00 00 00 | 00 00 00 00 15 f4 ff ff |........|........|
|00000450| ff ff ff fc 00 00 00 00 | 16 06 ff ff ff ff ff fc |........|........|
|00000460| 00 00 00 00 16 e0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 16 ea ff ff 00 00 00 00 | 00 00 00 00 18 34 ff ff |........|.....4..|
|00000480| 00 00 00 20 02 00 00 03 | 00 02 3f f9 8e fa 35 12 |... ....|..?...5.|
|00000490| 94 e9 c8 ae 01 5b 00 59 | 00 03 00 26 01 06 01 2c |.....[.Y|...&...,|
|000004a0| 01 9b 00 3c 00 00 01 00 | 00 00 01 24 00 00 00 24 |...<....|...$...$|
|000004b0| 00 00 00 32 00 40 44 84 | 06 9e 00 00 00 1c 00 32 |...2.@D.|.......2|
|000004c0| 00 00 50 52 65 66 00 00 | 00 0a 00 80 ff ff 00 00 |..PRef..|........|
|000004d0| 00 00 00 41 5c e4 00 00 | 00 00 00 00 00 00 00 00 |...A\...|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+